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

今天开始学习tadatable table row col之类的 做了一下 新方法学习
练习循环 表 行 列，多练习 才是根本
这个方法我认为是不错

可出现了一个错误 提示:没有明白怎么解决，在下载的同时 希望高手解决一下：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:学习datatable.rar

错误已经修正，谢谢mr725高手
重新上传

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:学习datatable.rar

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

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)  

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

逼着你学完,呵呵,我当时也是这样想的,最好加一个暂停按钮