• 全部
  • VBS
  • .NET技术
  • VBA
  • VB网络编程
  • VB多媒体
  • VB数据库
  • VB控件
  • VB COM/DCOM
  • VB基础类
  • VB API
  • 问答

vb 中datagridview中 怎么控制某一列能输入小数，但是第一位不能是小数点，谢谢各位了？

wangnaisheng 辽宁科技大学 信息系统项目管理师  2012-09-19 11:49:37
Private Sub txtEdit_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs)

If Data_View.CurrentCell.ColumnIndex = 9 Or Data_View.CurrentCell.ColumnIndex = 10 Then

If ("0123456789/b".IndexOf(e.KeyChar) = -1) Then

If e.KeyChar <> Convert.ToChar(Keys.Back) Then

e.Handled = True

End If

End If
end sub
...全文
263 点赞 收藏 23
写回复
23 条回复
切换为时间正序
当前发帖距今超过3年，不再开放新的回复
发表回复
lvlvlvlylyly 2012-09-19
If ("0123456789/b".IndexOf(e.KeyChar) = -1) Then

If e.KeyChar <> Convert.ToChar(Keys.Back) Then

e.Handled = True

End If

End If

你自己这代码不是已经写了吗??有问题没??
没问题的话,在里面再加上一个判断不就可以了???

if 小数点 then
if txtEdit.text<>"" then
e.handle=true
else
e.handle=false
end if
end if
回复 赞
wangnaisheng 2012-09-19
各位大侠都哪里去了！
 回复 赞
wangnaisheng 2012-09-19
[Quote=引用 22 楼 的回复:]

'判断输入的是否是数字、小数点或“BackSpace”符号

If Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Or e.KeyChar = Chr(8) Then
'判断输入的小数点是否唯一
If e.KeyChar = "." Then
……
[/Quote]

非常感谢你哈！谢谢啦！
 回复 赞
lvlvlvlylyly 2012-09-19
'判断输入的是否是数字、小数点或“BackSpace”符号

If Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Or e.KeyChar = Chr(8) Then
'判断输入的小数点是否唯一
If e.KeyChar = "." Then
Dim str As String
str = txtFenYe.SelectedText
If str = txtFenYe.Text Then '这里处理选中了所有文本之后再敲第一个小数点
e.Handled = True
Exit Sub
End If

If e.KeyChar = "." And InStr(CType(sender, TextBox).Text, ".") > 0 Then '这里处理小数点不唯一

e.Handled = True
Else
If e.KeyChar = "." And CType(sender, TextBox).Text = "" Then '这里处理第一位的小数点
e.Handled = True
Exit Sub
End If
e.Handled = False
End If
End If
'判断输入的负号是否是在第一位
ElseIf e.KeyChar = "-" And CType(sender, TextBox).Text = "" Then
e.Handled = False
Else
e.Handled = True
End If

这段应该可以满足你了,实在有哪个贱人去复制粘贴,那就不管他了,靠~
 回复 赞
lvlvlvlylyly 2012-09-19
'判断输入的是否是数字、小数点或“BackSpace”符号

If Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Or e.KeyChar = Chr(8) Then

'判断输入的小数点是否唯一
If e.KeyChar = "." Then

Dim str As String
str = txtFenYe.SelectedText
If str = txtFenYe.Text Then
e.Handled = True
Exit Sub
End If

If e.KeyChar = "." And InStr(CType(sender, TextBox).Text, ".") > 0 Then

e.Handled = True
Else
If e.KeyChar = "." And CType(sender, TextBox).Text = "" Then
e.Handled = True
Exit Sub
End If
e.Handled = False
End If
End If

'判断输入的负号是否是在第一位
ElseIf e.KeyChar = "-" And CType(sender, TextBox).Text = "" Then
e.Handled = False
Else
e.Handled = True
End If


这段代码,可以了,那种拷贝,粘贴的,我就不处理了,你自己把这个文本框的CTRL+V处理处理吧...
 回复 赞
lvlvlvlylyly 2012-09-19
'判断输入的是否是数字、小数点或“BackSpace”符号

If Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Or e.KeyChar = Chr(8) Then

'判断输入的小数点是否唯一
If e.KeyChar = "." Then
Dim strlimit As String
strlimit = "0123456789."
Dim keychar As Char = e.KeyChar
If (InStr(strlimit, keychar) <> 0) Or e.KeyChar = Microsoft.VisualBasic.ChrW(8) Then
e.Handled = False
Else
e.Handled = True
End If





If e.KeyChar = "." And InStr(CType(sender, TextBox).Text, ".") > 0 Then

e.Handled = True
Else
If e.KeyChar = "." And CType(sender, TextBox).Text = "" Then
e.Handled = True
Exit Sub
End If
e.Handled = False
End If
End If

'判断输入的负号是否是在第一位
ElseIf e.KeyChar = "-" And CType(sender, TextBox).Text = "" Then
e.Handled = False
Else
e.Handled = True
End If

你拿去整整,看看,我觉得粘上了一个比较细的问题..有点头大.还真有好多情况要处理
 回复 赞
wangnaisheng 2012-09-19
[Quote=引用 17 楼 的回复:]

有点难度呢,关键是还有几种状态,并不只是按键的判断,比如按键之前是选中了文本框的所有内容之后,再敲一个小数点,或是直接粘贴小数点,或是选中了所有内容之后,再粘贴小数点,我靠!
[/Quote]

InStr(Text_fumoney.Text, ".") > 0 要是能取到datagridview中类似于Text_fumoney.Text这个值就好了。
 回复 赞
wangnaisheng 2012-09-19
[Quote=引用 17 楼 的回复:]

有点难度呢,关键是还有几种状态,并不只是按键的判断,比如按键之前是选中了文本框的所有内容之后,再敲一个小数点,或是直接粘贴小数点,或是选中了所有内容之后,再粘贴小数点,我靠!
[/Quote]

要是能判断输入的就行了。。


我是不会!

找到高手你了！

我相信你哈。
 回复 赞
lvlvlvlylyly 2012-09-19
有点难度呢,关键是还有几种状态,并不只是按键的判断,比如按键之前是选中了文本框的所有内容之后,再敲一个小数点,或是直接粘贴小数点,或是选中了所有内容之后,再粘贴小数点,我靠!
 回复 赞
wangnaisheng 2012-09-19
[Quote=引用 15 楼 的回复:]

你==,我调一下,那句其实是错的,我的工程对那个无所谓,所以我没看,刚才看了一下,是无效的代码
[/Quote]

好的，我用这段代码。那个是我调试用？你可以再这上调一下，谢谢你啦！！！

#Region "DGV"
Private Sub KeyPressCheck(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles CellEdit.KeyPress
If Me.Data_View.CurrentCell.ColumnIndex = 9 Or Me.Data_View.CurrentCell.ColumnIndex = 10 Then
Dim keyAscii As Integer = Asc(e.KeyChar)
If (keyAscii < Keys.D0) Or keyAscii > Keys.D9 Then _
If keyAscii <> Keys.Enter And keyAscii <> Keys.Back Then e.Handled = True

End If
End Sub

Friend WithEvents CellEdit As New DataGridViewTextBoxEditingControl
Private Sub datagridyf_EditingControlShowing(ByVal sender As Object, ByVal e As DataGridViewEditingControlShowingEventArgs) Handles Data_View.EditingControlShowing
If Me.Data_View.CurrentCell.ColumnIndex = 9 Or Me.Data_View.CurrentCell.ColumnIndex = 10 Then
CellEdit = e.Control
CellEdit.SelectAll()
End If
End Sub

'出错时追加方法 2012/03/08 TB ADD
Private Sub Data_View_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles Data_View.DataError

End Sub

#End Region
 回复 赞
lvlvlvlylyly 2012-09-19
你==,我调一下,那句其实是错的,我的工程对那个无所谓,所以我没看,刚才看了一下,是无效的代码
 回复 赞
lvlvlvlylyly 2012-09-19
其实你是要一段统计字符出现次数的代码,以判断小数点出现了几次.
 回复 赞
wangnaisheng 2012-09-19
[Quote=引用 12 楼 的回复:]

'判断输入的是否是数字、小数点或“BackSpace”符号

If Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Or e.KeyChar = Chr(8) Then

'判断输入的小数点是否唯一
If e.KeyChar = "." And InStr(CType(……
[/Quote]

现在我没有处理好InStr(CType(sender, TextBox).Text, ".") > 0 这句话。

取到的datagridview中，的单价值总是取不到我输入的值啊？
 回复 赞
lvlvlvlylyly 2012-09-19
'判断输入的是否是数字、小数点或“BackSpace”符号

If Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Or e.KeyChar = Chr(8) Then

'判断输入的小数点是否唯一
If e.KeyChar = "." And InStr(CType(sender, TextBox).Text, ".") > 0 Then
e.Handled = True
Else
e.Handled = False
End If


Else
e.Handled = True
End If
这段代码稍微改一改就行了呀!!!!这次我确信自己完全理解你的意思了.....
 回复 赞
wangnaisheng 2012-09-19
[Quote=引用 8 楼 的回复:]

你到底是什么意思??是你的datagridview里面不能显示小数点,还是显示成其它的了??
那你要把你的datagridview的显示数据的代码拿出来看看呀.

datagridview里面显示小数点,是很正常的吧?哪还要专门设置一下不能在第一位显示小数点?
[/Quote]

你看看我贴的代码吧！
 回复 赞
wangnaisheng 2012-09-19
Private Sub DataGridView1_EditingControlShowing1(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles Data_View.EditingControlShowing
If Data_View.CurrentCell.ColumnIndex = 9 Or Data_View.CurrentCell.ColumnIndex = 10 Then
Dim txtedit As TextBox = DirectCast(e.Control, TextBox)
AddHandler txtedit.KeyPress, AddressOf txtEdit_KeyPress
End If
End Sub

Private Sub txtEdit_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs)
If Data_View.CurrentCell.ColumnIndex = 9 Or Data_View.CurrentCell.ColumnIndex = 10 Then
If ("0123456789/b".IndexOf(e.KeyChar) = -1) Then

If e.KeyChar <> Convert.ToChar(Keys.Back) Then
e.Handled = True
End If
End If
End If
End Sub


这是我的控制datagridview中一列是数量，一列是单价，
主要是控制单价能输入小数，，但是我上面的代码，限制输入小数点了。。

我的目标是，让他能输入小数点，但是只能是一个？这样说你明白了吧？


刚才我说的不明白吧，不好意思哈！
 回复 赞
wangnaisheng 2012-09-19
[Quote=引用 7 楼 的回复:]

引用 6 楼 的回复:

这段代码是限制文本框只能输入数字的,改造一下就能满足你的要求


文本框的我会，但是到datagridview中 我就不会了，数字什么的都能搞定，就是小数输入时 小数点不会弄？？
[/Quote]

或是说 InStr(CType(sender, TextBox).Text, ".") > 0 这句，怎么用datagridview中某一列的值怎么代替？我写的文本框的判断小数点输入代码是：
If e.KeyChar = "." Then
If Text_fumoney.Text.Length = 0 Then
If (e.KeyChar = ".") Then
e.Handled = True
End If
ElseIf e.KeyChar = "." And InStr(Text_fumoney.Text, ".") > 0 Then
e.Handled = True
End If

End If
 回复 赞
lvlvlvlylyly 2012-09-19
你到底是什么意思??是你的datagridview里面不能显示小数点,还是显示成其它的了??
那你要把你的datagridview的显示数据的代码拿出来看看呀.

datagridview里面显示小数点,是很正常的吧?哪还要专门设置一下不能在第一位显示小数点?
 回复 赞
wangnaisheng 2012-09-19
[Quote=引用 6 楼 的回复:]

这段代码是限制文本框只能输入数字的,改造一下就能满足你的要求
[/Quote]

文本框的我会，但是到datagridview中 我就不会了，数字什么的都能搞定，就是小数输入时 小数点不会弄？？
 回复 赞
lvlvlvlylyly 2012-09-19
这段代码是限制文本框只能输入数字的,改造一下就能满足你的要求
 回复 赞
发帖
VB
创建于2007-09-28

1.6w+

社区成员

11.0w+

社区内容

VB技术相关讨论，主要为经典vb，即VB6.0
申请成为版主
帖子事件
创建了帖子
2012-09-19 11:49
社区公告
暂无公告