请看附页两个档案。当运行代码时,在 msgbox(4) 之后、在 msgbox(5) 之前这段,就会出现 “将截断字符串或二进制数据” 这个提示。请问是 checkinout 这个数据表有问题吗?怎么修改?谢谢。
Dim nr As DataRow = DataTables("CHECKINOUT").AddNew()
For Each dc As DataCol In dt.DataCols
nr(dc.name) = dr9(dc.name)
Next
查看CHECKINOUT表,肯定有那一列字符串长度不够,所以会自动截断