老师, chekbox逻辑字段绑定怎么赋值
If pnl.Children.count>0 Then
For Each nb As object In pnl.Children
If nb.Bindingfield > "" Then
tb=nb.BindingField.Split(".")(0)
cl=nb.BindingField.Split(".")(1)
If Tables(tb).Current IsNot Nothing Then
Dim c As Col = Tables(tb).Cols(cl)
If c.IsBoolean Then
Tables(tb).Current(cl)=nb.value
ElseIf c.IsNumeric Then
Tables(tb).Current(cl)=nb.value
Else
Tables(tb).Current(cl)=nb.text
End If
End If
End If
Next