主题：[原创] 新方法学习 datatable

挺有意思的，支持一下。。。。。。。。。

dim k1 as string=CurrentTable.value  改为：
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

字符型，返回或设置组合框的值。

注意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表，就必须全部读完。。。。。

改造这个：messagebox.show("下一个是第"& i &"个表＝》名称是: "& dt.Name,"提示")
用 MessageBoxButtons.YesNo 选择好了

那就改造第二个 messagebox.show("本<"& MainTable.name &">表第"& i1 &"个列的名称是: "& dc.Name,"提示")   和 第三个 messagebox.show( k3 & k4 ,dc.Name & j)。