DataTables("窗口_Table2").DataCols("等级").DefaultValue = """常规"""
DataTables("窗口_Table2").DataCols("方式").DefaultValue = """常规"""
执行后，代码会异常，有时二个默认值会出来，大部时只会出一个默认值,，这个是问题，如何解决?
改为下拉列表，下面蓝代码没有执行，如何处理？
方法一
Dim dr As DataRow = e.Sender.SelectedItem
If dr IsNot Nothing Then
Tables("窗口_Table2").Current("等级") = dr("等级")
End If
方法二
Dim dr As DataRow = DataTables("下拉列表窗口_Table3").Find("等级='" & e.Sender.Text & "'") '
If dr IsNot Nothing AndAlso Tables("窗口_Table1").Current IsNot Nothing Then '
Tables("窗口_Table2").Current("等级") = dr("等级") '
End If
'窗口上的组合框-事件--Enter
Dim cmb As WinForm.ComboBox '
cmb = Forms("下拉列表窗口").Controls("ComboBox1") '"
cmb.ComboList = DataTables("下拉列表窗口_Table1").GetComboListString("等级", "等级 is not null") '
方法一
Dim dr As DataRow = e.Sender.SelectedItem
If dr IsNot Nothing Then
Tables("窗口_Table2").Cols("等级").ComboList = DataTables("下拉列表窗口_Table1").GetComboListString("等级")
End If
执行报错：无法将类型为“System.String”的对象强制转换为类型“Foxtable.DataRow”。我看官方视频教是可以，到这里就不行，如何解决？
方法二
Dim dr As DataRow = DataTables("下拉列表窗口_Table3").Find("等级='" & e.Sender.Text & "'") '
If dr IsNot Nothing AndAlso Tables("窗口_Table1").Current IsNot Nothing Then '
Tables("窗口_Table2").Cols("等级").ComboList = DataTables("下拉列表窗口_Table1").GetComboListString("等级")，改了，执行无效，如何解决？
End If
一句就够了
Tables("窗口_Table2").Cols("等级").ComboList = DataTables("下拉列表窗口_Table1").GetComboListString("等级")
需求是，单击"窗口_Table2"的"等级"列，打开下拉列表窗口，下拉列表窗口的组合框ComboBox1列表选中的值赋给""窗口_Table2"的"等级"列。
'窗口上的组合框-事件--Enter-显示下拉列表窗口_Table1的列表
Dim cmb As WinForm.ComboBox '
cmb = Forms("下拉列表窗口").Controls("ComboBox1") '"
cmb.ComboList = DataTables("下拉列表窗口_Table1").GetComboListString("等级", "等级 is not null") '
下面代码，执行无法实现下拉列表窗口的组合框ComboBox1列表选中的值赋给""窗口_Table2"的"等级"列，如何解决？
SelectedIndexChanged选择不同列表项目后执行
Tables("窗口_Table2").Cols("等级").ComboList = DataTables("下拉列表窗口_Table1").GetComboListString("等级")
怎么感觉这个贴您每一次回复说的都不是同一个问题！！
下拉窗口的DropDownClosed事件代码为：
If e.Selected Then
Dim tx As WinForm.TextBox = e.Form.Controls("ComboBox1")
e.Form.DropDownBox.Value = tx.Value
End If