这一段代码是放在按钮中的,一个窗口有两张表,我的意思,在表1中选定行后,在表2中查找所选行中进货明细号相符的行,然后对其已付款列打勾,但是发现总是会报错,不知是什么意思:我的两个表中并没有"JH",只是进货明细号:是由JH开头的
此主题相关图片如下:没找到列.jpg
Tables("付款信息_Table2").Fill("Select * From {进货信息} WHERE [已付款]= 0","User",False)
For Each r1 As Row In Tables("付款信息_Table1").GetCheckedRows
Dim drs As List(Of DataRow)
drs = DataTables("付款信息_Table2").Select("[进货明细号] = "& r1("进货明细号"))
For Each dr As DataRow In drs
dr("已付款") = True
dr("付款日期") = Date.Today()
r1("已转进货") = True
Next
Next