以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]多值字段  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73446)
--  作者：kaiyu
--  发布时间：2015/8/19 14:38:00
--  [求助]多值字段
在多值字段列里面，现在发现一个问题，本来系统在设计时的分隔符是",",但是人员在录入的时候输入了一些全角的"，",用查找替换把全角逗号替换成半角，保存数据后，重新刷新数据，那个逗号又变成全角了，这是为什么啊，另如何不让他输入除了半角逗号及数字外的其它字符。
--  作者：大红袍
--  发布时间：2015/8/19 14:45:00
--  

在DataColChanged事件把统一转成半角。

 

http://www.foxtable.com/help/topics/1621.htm

 
--  作者：kaiyu
--  发布时间：2015/8/19 14:57:00
--  
用了这个，改不过来
--  作者：大红袍
--  发布时间：2015/8/19 15:18:00
--  

这个是个问题，必须这样处理一下才行。

 

For Each dr As DataRow In DataTables("表A").datarows
    Dim temp As String = StrToNarrow(dr("第三列"))
    If temp.StartsWith(dr("第三列")) = False Then
        dr("第三列") = Nothing
        dr.save
        dr("第三列") = temp
    End If
Next
--  作者：kaiyu
--  发布时间：2015/8/19 15:39:00
--  
现在可以了，如何禁止输入中文及其它符号呢？
--  作者：kaiyu
--  发布时间：2015/8/19 15:43:00
--  
另外还有一个问题，就是在窗体中放入一个table 控件，如何让它的列名和数据类型变成我想要的，我现在用是隐藏所有的列，然后再增加列，有没有更好的办法。
--  作者：大红袍
--  发布时间：2015/8/19 15:48:00
--  
以下是引用kaiyu在2015/8/19 15:39:00的发言：
现在可以了，如何禁止输入中文及其它符号呢？

 

用正则处理

 

Dim str As String = "123456!dd"
Dim reg As new System.Text.RegularExpressions.Regex("^[0-9a-zA-Z,]+$")
If reg.IsMatch(str)=False Then
    msgbox("不匹配")
End If 

 

修改一下，写到datacolchanging事件就好。
--  作者：大红袍
--  发布时间：2015/8/19 15:51:00
--  
以下是引用kaiyu在2015/8/19 15:43:00的发言：
另外还有一个问题，就是在窗体中放入一个table 控件，如何让它的列名和数据类型变成我想要的，我现在用是隐藏所有的列，然后再增加列，有没有更好的办法。

 

空表？用sqlquery，然后设置sql语句

 

select 0 as 数值列, \'\' as 字符列

 

----------------

 

也可以生成临时表 http://www.foxtable.com/help/topics/0679.htm