-- 作者:gaoqr
-- 发布时间:2009/2/1 9:27:00
-- 单引号、双引号问题
各位新年好!
Dim a As String = MainTable.Name Dim b As DataRow = DataTables("基础设置").Find("[主表] = \'" & a & "\'") Dim c As String = ConfigBar.Items("组合框1").Text.SubString(0,3) Dim d As WinForm.TreeView = Forms("\'" & b("窗口") & "\'").Controls("TreeView1") d.BuildDataTree("定额库","定额 = \'" & c & "\'","章","节","W")
上面的代码中红色部分有问题,想要打开窗口1中的目录树,出现下面窗口:
此主题相关图片如下:窗口.jpg
|