标题：[原创] 新方法学习 datatable
今天开始学习tadatable table row col之类的 做了一下 新方法学习
练习循环 表 行 列，多练习 才是根本
这个方法我认为是不错
可出现了一个错误 提示:没有明白怎么解决，在下载的同时 希望高手解决一下：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:学习datatable.rar |
错误已经修正，谢谢mr725高手
重新上传
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:学习datatable.rar |
dim k1 as string=CurrentTable.text 试一试看？
dim k3 as string=k1.substring(0,k2-1)+chr(10)+chr(13) 改为
dim k3 as string=k1.substring(0,k2)+chr(10)+chr(13)
佩服
想不通是这里的问题（value---》text）
mr725 是高手
佩服
想不通是这里的问题（value---》text）
我是初学者，不是高手，不如你啊老兄，只是碰的多了吧，以后你也会经常碰到的。 你的代码中要有一个自动跳到下一个表就好了（或选择：是否到下一个表），点击 否 后 来一个‘谢谢～’，全部表看完，也来个‘谢谢’ 。 我不会写。。。。。
另外：
Value
字符型，返回或设置组合框的值。
注意Value和Text两个属性的不同：
1、通常两者返回的内容是相同的，但是在输入的过程中，两者会有所差别。例如有一个组合框，它最初的内容是"中国"，此时其Text和Value属性的内容都是“中国”，现在选择该组合框进行编辑，输入“中华”，此时Text的内容是“中华”，而Value的还是“中国”,输入结束，选择其它控件，此时该控件的Text和Value属性都是“中华”。通俗一点：Value返回的是控件已经输入完成的值，而Text返回的是控件中显示的文本内容，它会随着编辑的进行，而不断地变化。
2、Value属性是可读写的，而Text属性是只读的，如果你要设置组合框的值，只能通过Value属性。
示例
连续阅读：这样会让读者一次必须读完。。。 够残忍的了～～～ 
dim s as string
output.show(MainTable.cols.Count - 1)
dim i as integer=1
select case MainTable.Name
case "datatables"
For Each dt As DataTable In DataTables
messagebox.show("下一个是第"& i &"个表＝》名称是: "& dt.Name,"提示")
s = "本项目第"& i &"个表的名称是:"& dt.Name
Dim cs() As string
cs = s.split(":")
s = cs(1)
if s = "datatables"
i=i+1
else
MainTable = tables("" & s & "")
i=i+1
dim i1 as integer=1
For Each dc As Col In MainTable.Cols
messagebox.show("本<"& MainTable.name &">表第"& i1 &"个列的名称是: "& dc.Name,"提示")
dim j as integer=1
For Each r As Row In CurrentTable.Rows
CurrentTable.select(j-1,i1-1)
dim k1 as string=CurrentTable.text
if k1.length >=0 then
for k2 as integer = 0 to k1.length-1
if k1.chars(k2) Like " " then
dim k3 as string=k1.substring(0,k2)+chr(10)+chr(13)
dim k4 as string=k1.substring(k2+1)
messagebox.show( k3 & k4 ,dc.Name & j)
exit for
end if
next
end if
j=j+1
next
i1= i1+1
Next
end if
Next
end select
messagebox.show("^_^ §§ 谢谢阅读 §§ ^_^ ","提示")
注意：开启项目 或 选择 datatables表，就必须全部读完。。。。。