1.6w+
社区成员
vb 中datagridview中 怎么控制某一列能输入小数，但是第一位不能是小数点，谢谢各位了？
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
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
...全文
当前发帖距今超过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
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]
非常感谢你哈！谢谢啦！
'判断输入的是否是数字、小数点或“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
这段应该可以满足你了,实在有哪个贱人去复制粘贴,那就不管他了,靠~
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处理处理吧...
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
你拿去整整,看看,我觉得粘上了一个比较细的问题..有点头大.还真有好多情况要处理
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这个值就好了。
有点难度呢,关键是还有几种状态,并不只是按键的判断,比如按键之前是选中了文本框的所有内容之后,再敲一个小数点,或是直接粘贴小数点,或是选中了所有内容之后,再粘贴小数点,我靠!
[/Quote]
InStr(Text_fumoney.Text, ".") > 0 要是能取到datagridview中类似于Text_fumoney.Text这个值就好了。
wangnaisheng 2012-09-19
[Quote=引用 17 楼 的回复:]
有点难度呢,关键是还有几种状态,并不只是按键的判断,比如按键之前是选中了文本框的所有内容之后,再敲一个小数点,或是直接粘贴小数点,或是选中了所有内容之后,再粘贴小数点,我靠!
[/Quote]
要是能判断输入的就行了。。
我是不会!
找到高手你了！
我相信你哈。
有点难度呢,关键是还有几种状态,并不只是按键的判断,比如按键之前是选中了文本框的所有内容之后,再敲一个小数点,或是直接粘贴小数点,或是选中了所有内容之后,再粘贴小数点,我靠!
[/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
你==,我调一下,那句其实是错的,我的工程对那个无所谓,所以我没看,刚才看了一下,是无效的代码
[/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中，的单价值总是取不到我输入的值啊？
'判断输入的是否是数字、小数点或“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
这段代码稍微改一改就行了呀!!!!这次我确信自己完全理解你的意思了.....
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]
你看看我贴的代码吧！
你到底是什么意思??是你的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中一列是数量，一列是单价，
主要是控制单价能输入小数，，但是我上面的代码，限制输入小数点了。。
我的目标是，让他能输入小数点，但是只能是一个？这样说你明白了吧？
刚才我说的不明白吧，不好意思哈！
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
引用 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里面显示小数点,是很正常的吧?哪还要专门设置一下不能在第一位显示小数点?
那你要把你的datagridview的显示数据的代码拿出来看看呀.
datagridview里面显示小数点,是很正常的吧?哪还要专门设置一下不能在第一位显示小数点?
wangnaisheng 2012-09-19
[Quote=引用 6 楼 的回复:]
这段代码是限制文本框只能输入数字的,改造一下就能满足你的要求
[/Quote]
文本框的我会，但是到datagridview中 我就不会了，数字什么的都能搞定，就是小数输入时 小数点不会弄？？
这段代码是限制文本框只能输入数字的,改造一下就能满足你的要求
[/Quote]
文本框的我会，但是到datagridview中 我就不会了，数字什么的都能搞定，就是小数输入时 小数点不会弄？？
lvlvlvlylyly 2012-09-19
这段代码是限制文本框只能输入数字的,改造一下就能满足你的要求
加载更多回复
DataGridView控件设置某一列单元格的小数点位数 方法一： 遍历你的datagridview所要设定的列，用Match.Round(数值,2) for (int i = 0; i { dvData[列, i].Value = Math.Round(Convert .ToDouble ( dvData[列, i].Value), 2/*数值，小数位数*/); } ...
DataGridView(下) 35. DataGridView单元格内文字列换行 36. DataGridView单元格DBNull值表示的设定 37. DataGridView单元格样式格式化 38. DataGridView指定单元格颜色设定 39. DataGridView单元格文字字体设置 40. DataGridView...
DataGridView控件用法合集(七) 近期将DataGridView常用的一些用法做了一个整理。为防止页面过长，现分批贴出来，此为第七部分。 DataGridView样式 33. DataGridView单元格样式设置 34. DataGridView文字表示位置的设定 35. DataGridView单元格...
DataGridView控件用法合集 3. DataGridView最下面一列新追加行非表示 4. DataGridView判断当前选中行是否为新追加的行 5. DataGridView删除行可否设定 6. DataGridView行列不表示和删除 7. DataGridView行列宽度高度设置为不能编辑 8. ...
datagridview DataGridView控件用法合集 ...3. DataGridView最下面一列新追加行非表示 4. DataGridView判断当前选中行是否为新追加的行 5. DataGridView删除行可否设定 6. DataGridView行列不表示和删除 7. DataGridView
.NET中的视图和过滤器 (DefaultView和RowFilter) NET中的视图和过滤器 (DefaultView和RowFilter)ADO.NET中有一层对象，用来创建任意数据源的抽象模型。其中包括DataSet，DataTable，DataRow，DataView，DataRelation等等。所有这些对象都定义在System.Data名字空间...
DataGridView控件用法合集(四-八) DataGridView控件用法合集(四) 近期将DataGridView常用的一些用法做了一个整理。为防止页面过长，现分批贴出来，此为第四部分。 19. DataGridView中的ContextMenuStrip属性 20. DataGridView指定滚动框位置 21. ...
DataGridView控件用法合集(下) DataGridView单元格内文字列换行36. DataGridView单元格DBNull值表示的设定37. DataGridView单元格样式格式化38. DataGridView指定单元格颜色设定39. DataGridView单元格文字字体设置40. DataGridView根据单元格值...
