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
...全文
346 23 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
23 条回复
切换为时间正序
请发表友善的回复…
发表回复
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
  • 打赏
  • 举报
 回复
这段代码是限制文本框只能输入数字的,改造一下就能满足你的要求
加载更多回复（2）
GridView中日期不显示时分秒的完美解决方法
而如果要控制小数点后的位数，可以在格式字符串中指定，如`{0:N1}`表示保留一位小数。 总结来说，`DataFormatString`属性是一个功能强大的工具，它提供了对数据显示格式的灵活控制。无论是日期时间的显示，还是数字...
DataGridView"高级"设置小数点位数
大家可能都会遇到在DataGridView中需要设计小数点位数。目前大家使用的方法可能有两种 1.在SQL用专门的函数在select时就设好小数点. 2.column.DefaultCellStyle.Format = "C3"; 这里也可以设置小数点. 但有一个...
Datagridview中数字格式列 不显示小数点前面的0
用代码设置DataGridView中某列为数字格式，但当小数为0.*的时候，前面的0却不显示。只显示.*。 看网上有说： 调整本地设置，控制面板-区域和语言选项，在弹出框的区域选项卡中，选择自定义，在弹出框的数字选项...
DataGridView设置单元格的小数点位数
dataGridView1.Columns["flotamount"].DefaultCellStyle.Format="0.00";//"flotamount"为列名
datagrid 小数点_.net c# 如何将datagridview单元格值输入限制为小数点后2个数字?
I have a number pad with buttons containing text from 0-9 and a button to add a decimal point "." and when you click the button, it adds the text to the datagridview cell.However, is there any way to ...
VB

16,721

社区成员

110,526

社区内容

发帖
与我相关
我的任务
社区描述
VB技术相关讨论，主要为经典vb，即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章