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