- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]排序 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=153973)
-- 发布时间：2020/8/29 16:08:00
-- [求助]排序
老师好，在下面代码中增加一个排序代码。
Tables("经营_Table1").fill("SEL ECT * From {经营}","经营",False)
Tables("经营_Table1").AllowEdit = True
-- 发布时间：2020/8/29 16:12:00
--
Tables("经营_Table1").fill("SEL ECT * From {经营}","经营",False)
Tables("经营_Table1").sort = "xx列"
Tables("经营_Table1").AllowEdit = True
-- 发布时间：2020/8/29 16:16:00
--
谢谢老师
-- 发布时间：2020/9/5 9:51:00
--
老师，能找到自己在论坛上下载过的文件吗？
-- 发布时间：2020/9/5 10:10:00
--
上传的文件到自己发的贴里翻。下载的文件到自己电脑里找
此主题相关图片如下：1.png
-- 发布时间：2020/9/5 11:42:00
--
老师，我在论坛上下载了一个项目文件（动态生成控件绑定备注列）被我删除了，其中有一个内部函数没有复制。现在想用了。
Dim rtxt As New Windows.Forms.RichTextBox
UtilsSetLineSpace.SetLineSpace(rtxt, 500)
rtxt.name = "mytxt"
rtxt.Dock = 5
rtxt.Font = New Font("新宋体", 14, FontStyle.Bold)
rtxt.ForeColor = Color.DarkCyan \'字体颜色
e.Form.Controls("Panel1").BaseControl.Controls.Add(rtxt)
rtxt.Multiline = True
rtxt.Text = Tables("经营_Table1").Current("备注")
\'addhandler rtxt.TextChanged, addressof mytxt_TextChanged
-- 发布时间：2020/9/5 11:56:00
--
论坛里搜“RichTextBox”，看能不能找到可用的
Public Sub mytxt_TextChanged(sender As Object, e As EventArgs)
自己的代码
End Sub
自己的代码
End Sub
-- 发布时间：2020/9/5 12:14:00
--
老师，我搜过了找不到，自己有不会写。谢谢老师帮忙，谢谢了。