小编Ski*_*366的帖子

使用内联IF语句vb.net

有关代码的简要信息如下.代码采用一堆字符串并将它们如下所示,并在中间使用if语句来决定是否在其中一个上是concant.问题是If(Evaluation, "", "")抱怨说它不能是可空的或者必须是资源.当评估只是检查一个对象以确保它不是NN并且对象中的属性被检查为时,我该如何解决这个问题呢?如下:

Dim R as string = stringA & " * sample text" & _
    stringB & " * sample text2" & _
    stringC & " * sameple text3" & _
    If(ApplyValue IsNot Nothing AndAlso ApplyValue.CheckedBox Then ,StringD & " * sample text4" & _
    , NOTHING)
stringE & " * sample text5"
Run Code Online (Sandbox Code Playgroud)

VS正在抱怨applyValue.有任何想法吗?

应该注意的是,我已经尝试了以下只是为了看看它是否会起作用而且VS拒绝它:

Dim y As Double
Dim d As String = "string1 *" & _
    "string2 *" & _
    If(y IsNot Nothing, " * …
Run Code Online (Sandbox Code Playgroud)

vb.net if-statement

21
推荐指数
1
解决办法
4万
查看次数

Mvc3 HtmlHelper方法生成格式化的Checkbox表

这是vb.net中的mvc3 Razor项目.我需要创建一个动态表,1)可以包含1列到3列和1到多行...表中的项是复选框..我已经在下面的类中有工作的帮助方法但是下面的方法因为它只是返回字符串以及Ntd函数的实际字符串,因此只是为了了解应该在那一点发生什么...我迷失了,因为它产生了这些复选框可以绑定,所以控制器post方法将保存...如果我只是转储页面上的所有复选框,他们将保存和更新正确.布局只是一个眼睛疼痛..

这是当前的观点

@ModelType xxxxxx.CourseModel

@Code
    ViewData("Title") = "Edit Courses"
End Code

<script src="@Url.Content("~/Scripts/jquery.validate.min.js")" type="text/javascript"></script>
<script src="@Url.Content("~/Scripts/jquery.validate.unobtrusive.min.js")"  type="text/javascript"></script>

@Using Html.BeginForm(Nothing, Nothing, FormMethod.Post, New With {.enctype = "multipart/form-data"})
    @Html.ValidationSummary(True)

    @<fieldset>
        <legend>Edit Courses</legend>
        @Html.HiddenFor(Function(model) model.cId)
        <table style="float: left">
            <tr>
                <th>Certification Bodies</th>
            </tr>
            <tr>
                @For _i As Integer = 0 To Model.Bodies.Count - 1
                    Dim i = _i
                    @<td>
                        @Html.CheckBoxFor(Function(model) model.Bodies(i).certSelected)
                        @Html.DisplayFor(Function(f) f.Bodies(i).certName)
                        @Html.HiddenFor(Function(model) model.Bodies(i).certBodyId)
                    </td>
                Next
            </tr>
            <tr>
                <th><input type="submit" value="Save" /></th>
            </tr>
        </table>
    </fieldset>
end using
Run Code Online (Sandbox Code Playgroud)

这是辅助方法

<Extension()> _
Public Function …
Run Code Online (Sandbox Code Playgroud)

vb.net razor asp.net-mvc-3

5
推荐指数
1
解决办法
757
查看次数

Javascript在选中其他复选框时取消选中复选框

这是一个使用剃刀视图引擎的MVC 3应用程序.我在视图中有以下代码行,显示2个复选框.选中一个时,另一个复选框应取消选中.我已经搜索了我的缺乏exp与javascript和缺乏在谷歌相关的线程相关我甚至迷失了甚至javascript的代码片段用于一个有价值的起点.有任何想法吗??下面是我自己编写的内容,但是比这更加困难.

        $("#isStaffCheckBox").change(
              function (e) {
                  var checked = $(this).attr('checked');
                  if(checked)
                  {

    <li>Staff Member: @Html.CheckBoxFor(Function(f) f.isStaff, New With {.id = "isStaffCheckBox"}) Board Member: @Html.CheckBoxFor(Function(f) f.boardMember, New With {.id = "isBoardCheckBox"})</li>
Run Code Online (Sandbox Code Playgroud)

任何帮助是极大的赞赏..

javascript razor asp.net-mvc-3

4
推荐指数
1
解决办法
5832
查看次数

"elseif"Javascript附近的语法错误

我最近开始需要开始学习Java Script.我的应用程序是MVC 3,VB.NET.在我的一个视图中,我有以下javascript片段,它只是从SignalR消息中查看clientName,并根据字符串是否包含某个字符串来决定显示该消息的正确颜色.代码段如下:

   chat.addMessage = function (myClientName, message) {
        if (myClientName.indexOf("System") != -1) {
        $('#messages').append('<br><b style="color:red">'+ myClientName + message + '</b>');
        }

        elseif (myClientName.indexOf("devloper") != -1) {
        $('#messages').append('<br><b style="color:Blue">'+ myClientName + message + '</b>');
        }
        else
        {
        $('#messages').append('<br>' + myClientName + ' : ' + message);
                    }

        if (autoScroll) {
            $('#messages').animate({ scrollTop: $('#messages').prop('scrollHeight') })
        }
    };
Run Code Online (Sandbox Code Playgroud)

问题是elseIf线不喜欢法国大括号...它说我需要一个";" 我想我可以取消使用elseIf并使用if但似乎很蹩脚的方式来解决这个问题......

javascript syntax-error

3
推荐指数
1
解决办法
658
查看次数

使用 FOXPRO 数据库的 VFPOLEDB 提供程序从返回的集合中排除已删除的记录

VS 2010、VB.NET、WINFORMS。在我的应用程序中,我需要导入 foxpro 数据库表并排除已删除的记录。问题是 FOXPRO 表将删除的项目保留在同一个表中。我曾尝试在连接字符串中使用 DELETED=NO 但 vb 抛出

"Format of the initialization string does not conform to the OLE DB specification."
Run Code Online (Sandbox Code Playgroud)

我的功能如下:

    Dim _DBConn1 As String = "provider=vfpoledb.1; Data Source = " & file1 & ";DELETED=NO"
    Dim _DBConn2 As String = "provider=vfpoledb.1; Data Source = " & file2 & ";DELETED=NO"
    Dim _DBConn3 As String = "provider=vfpoledb.1; Data Source = " & file3 & ";DELETED=NO"
    Dim _DBConn4 As String = "provider=vfpoledb.1; Data Source = " & file4 & ";DELETED=NO" …
Run Code Online (Sandbox Code Playgroud)

vb.net foxpro winforms

1
推荐指数
1
解决办法
2060
查看次数

从字符串转换为类型Integer无效

我在我的应用程序中有以下代码...没有被声明为整数,所以我不明白或看到问题可能在哪里...它说:

从字符串"9838 Co Rd 47"到"Integer"类型的转换无效.

地址作为一个字符串流过整个函数,我认为它可能会被改变的唯一地方是函数调用...下面是抛出异常的函数.后跟返回地址的函数...错误来自_holder = item.bill_to.remove(地址)行

  For Each item In _QuickImport
            Dim BusinessName As String = Nothing
            Dim CustomerName As String = " "
            _Id = item.id
            If Not String.IsNullOrEmpty(item.Customer) Then
                Dim _holder As String = String.Empty
                Dim _contact_ As String = item.Contact
                Dim _address_ As String = String.Empty

                If item.Bill_to.Contains(_contact_) Then
                    _holder = item.Bill_to.Replace(_contact_, " ")
                End If
                If Not String.IsNullOrEmpty(_holder) Then
                    If item.Bill_to.Contains("Co Rd") Then
                        _address_ = ExtractAddressWithCoRd(_holder)
                    End If
                Else
                    If …
Run Code Online (Sandbox Code Playgroud)

vb.net

0
推荐指数
1
解决办法
8191
查看次数

文本框文本不为每个循环运行时更新

Windows Forms,VB应用程序......请原谅我这个非常基本的问题,但我忽略了一些非常简单的事情.我希望有一个标签显示变量的当前值,因为每个循环都会运行.我创建了一个非常简单的Button Click事件来确定其失败的位置.就像现在一样,直到每个循环完成运行之后才会显示该值,它应该在每次运行时实际显示计数器值...我知道这是可能的,而且非常简单,因为我在几年前做了但是对于我的生活无法弄清楚为什么我错过了酒吧,因为它应该不断更新标签以反映这一点?测试子如下:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim counter As Integer = 0
    For x As Integer = 1 To 200000
        counter += 1
        Label1.Text = Convert.ToString(counter)
    Next
End Sub
Run Code Online (Sandbox Code Playgroud)

vb.net winforms

0
推荐指数
1
解决办法
9664
查看次数