以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]拼音首字母辅助输入-0基础学习疑问001  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92934)

--  作者:lemon4012
--  发布时间:2016/11/16 17:25:00
--  [求助]拼音首字母辅助输入-0基础学习疑问001
我是想这样的功能:
在文本框输入拼音首字母时,就可以在控件Table1中列出like “文本框.text” 的数据


图片点击可在新窗口打开查看此主题相关图片如下:foxtable零基础学习疑问001.png
图片点击可在新窗口打开查看

求解,该怎么写这个代码?

--  作者:有点蓝
--  发布时间:2016/11/16 17:54:00
--  
vbnet函数不能用在表达式里

家具表增加i一个列,记录名称的拼音,然后通过拼音列进行查询。

t.filter = "拼音列 like \'%py%\'"

--  作者:lemon4012
--  发布时间:2016/11/16 18:15:00
--  
有没办法一次性提取“名称”列的拼音首字母,写入新建的列?

Tables("家具信息表").Cols("名称拼音")=GetPy(Tables("家具信息表").Cols("家具名称"))

不得行
[此贴子已经被作者于2016/11/16 18:22:13编辑过]

--  作者:有点青
--  发布时间:2016/11/16 18:56:00
--  

参考代码

 

Dim dt As DataTable = DataTables("家具信息表")
For Each dr As DataRow In dt.DataRows
    dr("名称拼音") = GetPy(dr("家具名称"))
Next


--  作者:lemon4012
--  发布时间:2016/11/16 19:20:00
--  
以下是引用有点青在2016/11/16 18:56:00的发言:

参考代码

 

Dim dt As DataTable = DataTables("家具信息表")
For Each dr As DataRow In dt.DataRows
    dr("名称拼音") = GetPy(dr("家具名称"))
Next


图片点击可在新窗口打开查看此主题相关图片如下:foxtable零基础学习疑问001-1.png
图片点击可在新窗口打开查看


谢谢各位帮忙,,我基础太差了,有点劳驾大家了,这还不是满意结果,要的是拼音首字母,是不是后面加ture

[此贴子已经被作者于2016/11/16 19:36:47编辑过]

--  作者:lemon4012
--  发布时间:2016/11/16 19:44:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:foxtable零基础学习疑问001-2.png
图片点击可在新窗口打开查看
运行第一次报错,看不懂,,
[此贴子已经被作者于2016/11/16 19:44:36编辑过]

--  作者:lemon4012
--  发布时间:2016/11/16 19:44:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:foxtable零基础学习疑问001-3.png
图片点击可在新窗口打开查看

再运行次,就全部出来了

--  作者:枫白羽
--  发布时间:2020/6/4 15:51:00
--  
你没有新建列,怎么写入呢