小编rue*_*edi的帖子

我的 sql-query 的结果是我想在标签中显示但不知道如何显示的单个值。我有一个创建数据集的解决方案，将查询结果放入该数据集并按行（0），列（0）获取它，但我想有一种更聪明的方法。

Private myquery As String

Sub New(ByVal query As String)
    myquery = query
End Sub
Public Sub query_Send()
    Dim myconn As New SqlConnection("Data Source=DB;Integrated Security=TRUE")
    Dim mycmd As SqlCommand = New SqlCommand(Me.myQuery, myconn)
    Dim myTable As New DataTable
    Dim previousConnectionState As ConnectionState = myconn.State
    Try
        If myconn.State = ConnectionState.Closed Then
            myconn.Open()
            Dim myDA As New SqlDataAdapter(mycmd)
            myDA.Fill(myTable)
            tb.text = **...**
        End If
        If previousConnectionState = ConnectionState.Closed Then
            myconn.Close()
        End If
    End Try
End Sub

我有一个名为WebApp的WebApplication项目,我有一个名为LibProj的库项目,我在其中定义了一个名称空间

Namespace LibProj
    Public Class Employee
        Public Property Name As String
    End Class
End Namespace

现在我添加对WebApp的引用并尝试使用命名空间

Imports LibProj

但这不起作用.我必须补充一下

Imports LibProj.LibProj

在我研究的所有例子中,它总是起作用,Imports LibProj但我只是看不出我的程序有什么问题.谁能在这帮助我？

我尝试了解R您可以访问的范围演示demo(scoping).

我不明白total变量的保存位置.首先,我认为根据help("<<-")

运算符<< - 和 - >>通常仅在函数中使用,并且通过父环境搜索要分配的变量的现有定义.如果找到这样的变量(并且其绑定未被锁定),则重新定义其值,否则在全局环境中进行赋值.

它在global environment.但是因为我在那里找不到它,(ls(environment))我想open.account <- function(total)为由赋值创建的所有实例创建一个总变量open.account().但是,如果我创建一个实例,ross <- open.account(100)我找不到变量.

ross
...
<environment: 0x0000000011fbe998>

与ls(environment(environment: 0x0000000011fbe998)).结果getAnywhere(total)是no object named ‘total’ was found.那么不同版本的生活在哪里total？

我想从 C# 在 Azure SQL-Server 上运行我的存储过程，但它不起作用，我不知道如何找出原因。该存储过程有两个输入参数并根据这些信息插入一个表。所以我可以在表中看到是否有新条目（SP 是否有效）。

在 SQL-Server 中使用我的 SP 作为

exec Commentary.Add_Information @ID = 34926, @year = '2020'  

工作得很好。但是从 c# 执行它不会在表中创建一个条目

public void CreateBasicInformation()
{
    SqlConnectionStringBuilder builder = new SqlConnectionStringBuilder();
    builder.DataSource = "myServer.database.windows.net";
    builder.UserID = "admin";
    builder.Password = "myPass";
    builder.InitialCatalog = "myDB";

    try
    {
        SqlConnection cn = new SqlConnection(builder.ConnectionString);
        cn.Open();
        SqlCommand cmd = new SqlCommand("Add_Information", cn);
        cmd.CommandType = CommandType.StoredProcedure;
        cmd.Parameters.AddWithValue("@ID", "34926");
        cmd.Parameters.AddWithValue("@year", "2020");
        cn.Close();
    }
    catch (SqlException sqlEx)
    {
        Console.WriteLine(sqlEx.Message);
    }
    catch (Exception ex)
    {
        Console.WriteLine(ex.Message);
    }
} …

我想在vb.net中运行一个r脚本,它将数据保存在.csv文件中.直到现在我发现了以下方法:

dim strCmd as String
strCmd = "R CMD BATCH" + "C:\test.R"
process.start("CMD.exe", strCmd

显然这应该工作,但在我的情况下,cmd弹出(在我的调试文件夹中lokated),没有任何反应.

我试过的另一种方式是

process.start("Rgui.exe", "C:\test.R")

错误消息:参数"C:\ test.R"被忽略

这也不起作用.

对于我的r脚本,我只是用了一个例子

sink()
setwd("C:/")
x <- data.frame(a = I("a \" quote"), b = pi)
sink(test.csv)

我有一个typedDataset(ds)和它的数据表(dt).数据表有列Date(ttmmyyy)和Worktime.我想按月汇总工作时间.我已经完成了与工作时间的总结

Dim sum = dt.AsEnumerable().Sum((Function(x) x.Worktime))

我需要按月帮助分组.

我尝试将集合作为函数输出提交给另一个过程.这是我的代码:

Function colGen() As Collection
Dim col As Collection
Dim bo As Boolean
Dim str As String
Set col = New Collection
bo = True
str = "Test"
col.Add bo
col.Add str
End Function

Sub test()
Dim col As Collection
Set col = New Collection
Dim str As String
col = colGen
MsgBox (str)
End Sub

但在行中col = colGen我得到的错误是"参数不是可选的",但只是不明白为什么会这样.谁能在这帮助我？

我对一个范围进行一些过滤并复制过滤范围

myRange.SpecialCells(xlCellTypeVisible).Copy

但是一旦过滤器过滤所有情况,我得到错误"1004没有找到细胞".我正在寻找一种方法来检查(没有On Error)过滤范围是否为空？

我已经尝试设置范围lastRow = .Cells(.Rows.Count, ColumnName).End(xlUp).Row并检查if lastRow > 0但是这样我也计算了filterd(或隐藏)rowcontents.

我也试过了

Sub test()
    Dim rngStart As Range
    Dim rngFiltered As Range

    Set rngStart = Sheets(1).Range("A1:A6")
    Set rngFiltered = rngStart.SpecialCells(xlCellTypeVisible).Select

    If rngFiltered.Rows.Count = 0 Then
        MsgBox ("No Cases")
    Else
        MsgBox ("Found Cases")
    End If
End Sub

但在这里我得到了错误Set rngFiltered的.Sort线也是如此.如果有人能帮助我,那会很棒.

我有一个DGV，它连接到具有8列的连接到数据库的DataSet。这些列之一是具有以下设置的组合框

目前，自动完成功能（默认情况下）的工作方式如下：如果键入“ a”，我将获得所有以“ a”开头的条目。就是这样。如果我输入“ An”，则不会转到例如安达卢西亚。

我已经检查了组合框设置，可以在其中设置自动完成模式和来源，等等，但是随后我看到，在上面可以看到的属性中我没有这些设置。

有谁知道我如何获得想要完成的自动完成功能？

我有一张桌子

Sex     Value1   Value2    City
M       2        1         Berlin
W       3        5         Paris
W       1        3         Paris
M       2        5         Berlin
M       4        2         Paris

我想计算的平均值Value1，并Value2为不同的群体。在我origial数据集我有10个变量（与5个特征，如5个城市最大），我已经缩短到Sex和City在这个例子中（2个特性）。结果应该是这样的

       AvgOverall   AvgM    AvgW    AvgBerlin    AvgParis
Value1 2,4          2,6     2       2            2,66   
Value2 3,2          2,6     4       3            3,3

我熟悉group by并尝试过

df.groupby('City').mean()

但在这里我们也Sex遇到了计算中的问题。有谁知道如何解决这个问题？提前致谢！