以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  生成临时表 怎么样改一下能做成生成表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=47538)

--  作者:xiaofengfeng
--  发布时间:2014/3/12 9:46:00
--  生成临时表 怎么样改一下能做成生成表

求解

If e.Form.Controls("CheckedComboBox1").Value <> Nothing Then
    Dim dtb As New DataTableBuilder("统计")
    dtb.AddDef("姓名", Gettype(String), 32)
    For Each s As String In e.Form.Controls("CheckedComboBox1").Value.Split(",")
        dtb.AddDef(s, Gettype(String), 32)
    Next
    dtb.Build()
    MainTable= Tables("统计")
End If

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140312094502.png
图片点击可在新窗口打开查看

--  作者:狐狸爸爸
--  发布时间:2014/3/12 9:49:00
--  

参考:

 

http://www.foxtable.com/help/topics/2122.htm

 


--  作者:xiaofengfeng
--  发布时间:2014/3/12 10:14:00
--  

求明确代码


--  作者:Bin
--  发布时间:2014/3/12 10:18:00
--  
2楼帮助例子已经说得非常明确了,每次都要精确代码,赋值黏贴. 永远不会进步.  1+2会换过来2+1 又不会了. 这样永远都是别人在帮你写代码.
--  作者:Bin
--  发布时间:2014/3/12 10:18:00
--  
而且,就算要明确代码,你没有例子,没有详细明确的需求.别人如何给你写?