'复选框与是否检查字段同步
Dim ids2 As String = ""
For Each dr1 As DataRow In DataTables("应付副表本地表").Select("checked=true")
ids2 = ids2 & ",'" & dr1("factoryID") & "'"
Next
ids2 = ids2.Trim(",")
Messagebox.Show(ids2)
ids2的值为AT2303-0001序11
执行下面代码时,会同步把AT2303-0001序1一起选上,(即勾选上AT2303-0001序1和AT2303-0001序11)
For Each r1 As Row In Tables("应付副表本地表").Rows
If ids2.Contains(r1("factoryID")) Then
r1.Checked = True
End If
Next
老师帮忙看下避免
[此贴子已经被作者于2023/7/20 14:40:30编辑过]